home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / misc / sss.lha / sss / cod / dat.i next >
Text File  |  1994-06-20  |  3KB  |  88 lines
  1. *******************************************************************************
  2. * dat 1.3.3
  3. *******************************************************************************
  4.  
  5.     DATA
  6.  
  7.  
  8.  
  9. *******************************************************************************
  10. * variables
  11.  
  12.     cnop    0,4
  13. _DOSBase    dc.l    0
  14. _StdOut    dc.l    0    ;standard output handle
  15.  
  16. WrkBufAdr    dc.l    0    ;work buffer address
  17. WrkBufLen    dc.l    0    ;work buffer length
  18. ChnkSz    dc.l    0    ;chunk length
  19. InFlHnd    dc.l    0    ;source filehandle
  20. InFlSz    dc.l    0    ;size of source file
  21. ExtnAdr    dc.l    0    ;pointer to extension
  22. MaxChnk    dc.l    0    ;highest chunk number
  23. DgtNo    dc.l    0    ;minimum necessary length of extension
  24.  
  25. flgs    dc.b    0    ;see defs.i for bit allocations
  26.  
  27.  
  28.  
  29. *******************************************************************************
  30. * tables
  31.  
  32.     cnop    0,4
  33. ErrTab    dc.l    txt_AllDone,txt_LowMem,txt_SouFl
  34.     dc.l    txt_ChnkSz,txt_DstFl,txt_ChnkNo
  35.     dc.l    txt_UsrBrk
  36.  
  37.  
  38.  
  39. *******************************************************************************
  40. * texts
  41.  
  42. _DOSName    dc.b    "dos.library",0
  43.  
  44. txt_vers    dc.b    "$VER: sss 1.4 (20.5.2002)",0
  45. txt_ttl    dc.b    10,"›1msss 1.4›0m (20.5.2002) - © 1999 Simone Bevilacqua",10,10,0
  46. txt_InfoArw    dc.b    " -> ",0
  47. txt_InfoBytes    dc.b    " bytes"
  48. txt_ENTER    dc.b    10,0
  49. txt_wrting    dc.b    13,"writing          : ",0
  50. txt_InfoFlNm    dc.b    "source file name : ",0
  51. txt_InfoFlSz    dc.b    "source file size : ",0
  52. txt_InfoOFl    dc.b    "chunks file names: ",0
  53. txt_InfoCSz    dc.b    "chunks size      : ",0
  54. txt_InfoBSz    dc.b    "buffer size      : ",0
  55.  
  56. txt_err    dc.b    "ERROR: ",0
  57. txt_AllDone    dc.b    "all done!",10,10,0
  58. txt_LowMem    dc.b    "not enough memory!",10,0
  59. txt_SouFl    dc.b    "can't read from source file",10,0
  60. txt_DstFl    dc.b    "can't write to destination",10,0
  61. txt_ChnkSz    dc.b    "wrong chunk size",10,0
  62. txt_ChnkNo    dc.b    "too many chunks (max. 10000)!",10,0
  63. txt_UsrBrk    dc.b    "***Break",10,0
  64. txt_UsgHlp    dc.b    "  ›1mSYNTAX›0m",10,10
  65.     dc.b    "    sss [›1m-q›0m] ›1mInputFile ChunkSize ›0m[›1mOutBase›0m]",10,10
  66.     dc.b    "  ›1mARGS›0m",10,10
  67.     dc.b    "    ›1m-q       ›0m = quiet mode: don't print any message",10
  68.     dc.b    "    ›1mInputFile›0m = name of the file to split",10
  69.     dc.b    "    ›1mChunkSize›0m = size in bytes of each chunk",10
  70.     dc.b    "                (0 < ChunkSize < $7fffffff = 2,147,483,647)",10
  71.     dc.b    "    ›1mOutBase›0m   = output files will be called ›1mOutBase›0m.x",10
  72.     dc.b    "                (000 <= x <= 99,999; by default ›1mOutBase›0m = ›1mInputFile›0m)",10,10
  73.     dc.b    "  ›1mNOTE›0m",10,10
  74.     dc.b    "    execution can be stopped by pressing ›1mCTRL-C›0m anytime",10,10,0
  75.  
  76.  
  77.  
  78. *******************************************************************************
  79. * buffers
  80.  
  81.     BSS
  82. InFl    ds.b    1024    ;file to split
  83. OutBs    ds.b    1024
  84. CmdLn    ds.b    514    ;commandline string
  85.  
  86.     cnop    0,4
  87. TmpBuf    ds.b    256
  88.